home *** CD-ROM | disk | FTP | other *** search
/ Amiga Games: 500 MB Amiga Software / 500 MB Amiga Software - Euber 130 - Amiga Games Disc & Mag.iso / userbox / publicdomain / toolmanager / scripts / virus_check.rexx < prev   
OS/2 REXX Batch file  |  1994-10-18  |  890b  |  35 lines
  1. /*********************************************************/
  2. /*          Virus Check    by   KMel  16-I-92            */
  3. /*********************************************************/
  4.  
  5. PARSE ARG device
  6.  
  7. IF ~SHOW("Ports","Virus_Checker") THEN EXIT 10
  8.  
  9. ADDRESS "Virus_Checker"
  10.  
  11. out = ">con:50/50/400/100/Virus_Check/AUTO/WAIT"
  12.  
  13. IF device = '' THEN DO
  14.   IF ~SHOW('Libraries','rexxarplib.library') THEN ADDLIB('rexxarplib.library',0,-30,0)
  15.   GetFile(40,20,'',,'Virus_Check: Get Path','Workbench',NOFILES,dirs,,,)
  16.   IF dirs.0 = 0 THEN RETURN 20
  17.  
  18.   IF dirs.1 = "" THEN DO
  19.     'window\ON'            /* openwindow */
  20.     SIGNAL prog_end
  21.   END
  22.  
  23.   device = dirs.1
  24. END
  25.  
  26. IF RIGHT(device,1)='"' then device = LEFT(device,LENGTH(device)-1)
  27. IF LEFT(device,1)='"' then device = RIGHT(device,LENGTH(device)-1)
  28.  
  29. IF RIGHT(device,1)="/" THEN device = LEFT(device,LENGTH(device)-1)
  30.  
  31. 'checkdrive\'device
  32.  
  33. prog_end:
  34. RETURN 0
  35.